home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / lf_6sch.lsp < prev    next >
Text File  |  1998-03-15  |  1KB  |  41 lines
  1. ;=============356.30 LAGEREINHEIT 6Z  - SCHNITT
  2.  
  3. (EAITDBL "0035630")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:LF-6Z (/ P1)
  8.    (EAITDBL "0035630")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 0)
  13.    (EAITbpt EAITofzen 4 nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (setvar "ORTHOMODE" 1)
  17.    (setvar "OSMODE" 0)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.    (command EAITege (strcat EAITpfn "LF_8_6z") P1 "" "" EAITofkei pause)
  20.    (EAITvarz2)
  21.    (princ)
  22. )
  23.  
  24. (defun C:LF-6E (/ P1)
  25.    (EAITDBL "0035630")
  26.    (princ (strcat "\n\n" EAITbez1))
  27.    (EAITvari)
  28.    (EAITvars)
  29.    (setvar "ORTHOMODE" 0)
  30.    (EAITbpt EAITofzen 4 nil)
  31.    (setq P1 (getpoint))
  32.    (if (= P1 nil)(setq P1 (EAITrpt)))
  33.    (setvar "ORTHOMODE" 1)
  34.    (setvar "OSMODE" 0)
  35.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  36.    (command EAITege (strcat EAITpfn "LF_8_6e") P1 "" "" EAITofkei pause)
  37.    (EAITvarz2)
  38.    (princ)
  39. )
  40. (princ)
  41.